home *** CD-ROM | disk | FTP | other *** search
/ Super Shareware Collection / Super Shareware Collection.iso / os_2 / clisp.zip / BACKQUOT.FAS < prev    next >
Text File  |  1994-02-05  |  6KB  |  104 lines
  1. (SYSTEM::VERSION '(SYSTEM::CLISP2 12. LISP:NIL 290893.))
  2. #Y(#:TOP-LEVEL-FORM-1 #13Y(00 00 00 00 00 01 D5 37 02 30 DE 19 01) "SYSTEM")
  3. #Y(#:TOP-LEVEL-FORM-2 #11Y(00 00 00 00 00 01 D5 30 5B 19 01) (SPECIAL *BACKQUOTE-LEVEL*))
  4. #Y(#:TOP-LEVEL-FORM-3 #11Y(00 00 00 00 00 01 D5 30 5B 19 01) (SPECIAL *NSPLICE-FUN*))
  5. #Y(#:TOP-LEVEL-FORM-4 #11Y(00 00 00 00 00 01 C0 0F 01 19 01) NCONC *NSPLICE-FUN*)
  6. #Y(#:TOP-LEVEL-FORM-5 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) |`-READER|
  7.    REMOVE-OLD-DEFINITIONS
  8.    #Y(|`-READER|
  9.       #50Y(02 00 00 00 00 03 0E 00 1B 01 C1 14 31 89 10 00 AC 60 5F 60 6D 74 D7 A8 6B 03 A9 6B 04
  10.            6B 05 77 03 67 00 DB 8D 01 2B 04 A7 2E 07 F6 15 16 01 11 19 03
  11.           )
  12.       *BACKQUOTE-LEVEL* 0. BACKQUOTE REMOVE-BACKQUOTE-THIRD UNQUOTE-LEVEL BACKQUOTE-1 1.
  13.       ELIM-UNQUOTE-DUMMY
  14.   )  )
  15. #Y(#:TOP-LEVEL-FORM-6 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) |,-READER|
  16.    REMOVE-OLD-DEFINITIONS
  17.    #Y(|,-READER|
  18.       #82Y(02 00 00 00 00 03 5F AA 37 03 6D 7A 0E 00 1C 0A 67 00 8B 84 10 C3 14 D7 5E 01 C1 1A 79
  19.            AD 37 03 30 78 C5 1A 14 67 00 31 8A 10 00 AA 23 04 6E AA 24 07 12 AD 37 03 30 78 C8 14
  20.            DB AF 60 5F 60 6D 74 5C 02 1A 07 DB AE 60 5F 60 30 74 14 5C 02 11 19 04
  21.           )
  22.       *BACKQUOTE-LEVEL* "~S: comma is illegal outside of backquote" READ
  23.       "~S: more commas out than backquotes in, is illegal" #\@ SPLICE UNQUOTE #\. NSPLICE
  24.   )  )
  25. #Y(#:TOP-LEVEL-FORM-7 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) REMOVE-BACKQUOTE-THIRD
  26.    REMOVE-OLD-DEFINITIONS
  27.    #Y(REMOVE-BACKQUOTE-THIRD
  28.       #53Y(01 00 00 00 00 02 99 1F 1D 90 01 24 02 04 99 57 20 1B 90 01 68 70 91 02 27 6C 58 19 02
  29.            D5 95 01 AA 32 00 24 19 02 A8 8A 20 73 99 19 02 D7 9A 57 74 5C 02 19 02
  30.           )
  31.       VECTOR REMOVE-BACKQUOTE-THIRD BACKQUOTE
  32.   )  )
  33. #Y(#:TOP-LEVEL-FORM-8 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) ELIM-UNQUOTE-DUMMY
  34.    REMOVE-OLD-DEFINITIONS
  35.    #Y(ELIM-UNQUOTE-DUMMY
  36.       #58Y(01 00 00 00 00 02 99 1F 23 90 01 A7 68 78 91 03 A7 68 73 AA 9B 22 04 A8 99 21 1C A9 99
  37.            58 19 06 C1 19 02 D7 95 03 AA 32 00 24 19 02 A8 23 00 70 A8 8A 20 6F 99 19 02 9D 19 06
  38.           )
  39.       UNQUOTE-DUMMY UNQUOTE VECTOR ELIM-UNQUOTE-DUMMY
  40.   )  )
  41. #Y(#:TOP-LEVEL-FORM-9 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) UNQUOTE-LEVEL
  42.    REMOVE-OLD-DEFINITIONS
  43.    #Y(UNQUOTE-LEVEL
  44.       #170Y(01 00 01 00 00 08 00 2A 01 3A 02 01 C0 0B 00 00 9B 1F 36 90 03 24 03 05 9B 57 20 80 40
  45.             90 03 24 06 80 74 9B 57 1F 80 6F DB 9C 57 74 64 02 00 6E 89 68 53 9D 57 57 20 80 4F 00
  46.             5D 02 19 04 D6 A8 69 02 01 AC 32 00 24 19 04 AA 8A 20 71 9B 19 04 D9 9C 57 74 5C 02 19
  47.             04 98 57 56 19 05 64 00 00 8A 84 6D 9B 57 74 64 01 00 6E 8A 68 FF 98 98 1F 11 90 00 24
  48.             05 0C 98 57 56 1F 07 98 57 56 74 23 04 56 D8 A8 5C 02 19 05 9D 57 57 74 64 03 00 68 FF
  49.             74 5C 01 1A FF A3 90 03 64 01 00 68 FF 67 91 04 64 02 00 27 FF 5F 58 19 04
  50.            )
  51.       0. VECTOR
  52.       #Y(UNQUOTE-LEVEL-1 #14Y(01 00 00 00 00 02 A8 65 00 01 2F 01 19 02) NIL UNQUOTE-LEVEL) UNQUOTE
  53.       UNQUOTE-VALUE QUOTE BACKQUOTE
  54.   )  )
  55. #Y(#:TOP-LEVEL-FORM-10 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) SPLICING-P
  56.    REMOVE-OLD-DEFINITIONS
  57.    #Y(SPLICING-P
  58.       #27Y(01 00 00 00 00 02 A8 31 01 1E 0E 90 01 A7 C0 55 1D 05 A7 C1 55 19 03 19 03 19 02) SPLICE
  59.       NSPLICE
  60.   )  )
  61. #Y(#:TOP-LEVEL-FORM-11 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) BACKQUOTE-1
  62.    REMOVE-OLD-DEFINITIONS
  63.    #Y(BACKQUOTE-1
  64.       #330Y(01 00 00 00 00 02 99 1F 80 67 90 01 23 0A 80 89 90 01 23 0B 80 88 90 01 23 0D 80 85 90
  65.             01 24 0F 80 E5 99 57 1F 80 E0 D8 E5 D1 10 12 9E 57 74 27 55 11 14 9C 57 57 20 80 6B 00
  66.             5D 03 19 02 99 19 02 D6 D7 D8 D9 AC 32 00 24 5D 02 19 02 DC DD DE AA 6F 00 24 5C 02 19
  67.             03 95 00 A9 8C 00 25 62 D8 95 05 AA 6F 00 24 DB A8 8C 00 26 61 DD 99 58 19 03 A8 8B 03
  68.             0B A8 89 5F 07 A8 A9 30 4F 21 FF BE A8 8A 05 FF B9 A8 8A 04 FF B4 A8 8A 1E FF AF A8 8A
  69.             20 45 DC A9 5C 02 19 02 99 57 56 19 02 E1 5E 00 E3 5E 00 9C 57 57 74 68 FF 5B 5C 01 1A
  70.             FF 8A 99 56 57 56 1F 80 74 99 56 57 56 74 24 0A 80 6B 99 56 57 74 68 FF 3F 91 02 68 FF
  71.             3A 2F 13 19 02 67 12 A9 5C 02 19 04 A8 84 00 75 99 19 04 67 12 A9 9A 57 5D 02 19 04 99
  72.             56 57 74 68 FF 18 91 02 68 FF 13 8F 00 61 98 1F 06 90 00 0E 12 21 5F 67 12 A9 A9 5C 03
  73.             19 04 99 56 1F 07 99 56 74 23 0B FF 9E 99 56 1F 25 99 56 74 24 0D 1F 99 56 57 56 1F 09
  74.             99 56 57 56 74 23 0A FF BC 99 56 74 68 FE D5 9A 56 75 68 FE CF 2F 14 1A 05 90 01 27 FE
  75.             C6 14 91 02 68 FE C0 2F 14 19 02
  76.            )
  77.       SPLICING-P MULTIPLE-VALUE-CALL #'VECTOR LIST
  78.       #Y(BACKQUOTE-1-1
  79.          #49Y(01 00 00 00 00 02 A8 84 00 0F DA 9A 14 6B 03 5C 02 19 02 D7 9A 57 56 1A 73 99 57 56
  80.               1F 07 99 57 56 74 23 01 6E 90 01 6B 03 91 02 6B 03 2F 04 19 02
  81.              )
  82.          SPLICING-P UNQUOTE-VALUE VALUES-LIST BACKQUOTE-1 BACKQUOTE-CONS VALUES
  83.         )
  84.       BACKQUOTE-1 #.#'CONSTANTP QUOTE VECTOR #.#'EVAL UNQUOTE-VALUE SPLICE
  85.       "The syntax ,@form is valid only in lists" NSPLICE "The syntax ,.form is valid only in lists"
  86.       BACKQUOTE 'BACKQUOTE APPEND *NSPLICE-FUN* BACKQUOTE-APPEND BACKQUOTE-CONS
  87.   )  )
  88. #Y(#:TOP-LEVEL-FORM-12 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) BACKQUOTE-APPEND
  89.    REMOVE-OLD-DEFINITIONS
  90.    #Y(BACKQUOTE-APPEND
  91.       #45Y(02 00 00 00 00 03 8F 01 15 99 1F 05 90 01 23 01 14 D6 AA AA 5C 03 19 03 D6 AA 5C 02 19
  92.            03 A9 84 00 76 9A 19 03 D6 AA 9B 57 5D 02 19 03
  93.           )
  94.       SPLICING-P APPEND
  95.   )  )
  96. #Y(#:TOP-LEVEL-FORM-13 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) BACKQUOTE-CONS
  97.    REMOVE-OLD-DEFINITIONS
  98.    #Y(BACKQUOTE-CONS
  99.       #83Y(02 00 00 00 00 03 A9 89 5F 04 A8 88 5F 0D 8E 01 29 D8 9B 14 5C 02 19 03 C2 1A 0E A9 7C
  100.            5C 02 A8 7C 5C 01 D5 AA 23 01 70 9B 14 9B 58 1A 65 C3 1A 01 C5 14 AA 9B 57 5D 02 19 03
  101.            99 1F 0F 90 01 23 03 6C 90 01 23 05 6A 90 01 23 04 65 D9 AA AA 5C 03 19 03
  102.           )
  103.       QUOTE UNQUOTE UNQUOTE-DUMMY LIST CONS LIST*
  104.   )  )